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TITLE: 

TYPE: 

DESCRIPTION: 



DURATION: 



METHOD OF USE! 



DATA TAPE: 



CAPACITY: 



SUM CHECK: 



Chi-square for r "by c Frequency Tables (SADOI Only) 

Entire program 

This routine will calculate a set of chi-square values, 
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where the f jj are cell frequencies for a table of r 
rows and c columns. The e-n are expected values for 
the cells and can be found by multiplying the i th row 
sum by the j^h column sum and dividing this product 
by the total frequency of the table. 
For each table a chi-square value and the degrees of 
freedom will be punched onto tape. The expected 
values may also be punched if desired. 

A. Chi-square and degrees of freedom: 

(.033rc +1.2) seconds per table 

B. With expected values: (.210rc +1.8) seconds per table 

Stops 

A. Chi-square and degrees of freedom: 

1. Master tape 2*K)8K 

2. Data tape, raise black switch OF 

B. Chi-square, degrees of freedom, and expected values: 

1. Master tape 2to8K 

2. Data tape, raise white switch OF 

Additional data tapes can be read at OF stop by raising 
white switch and then either white or black depending 
upon output desired. 

The cell frequencies are punched on tape as positive 
signed integers. Each row of the table is terminated 
by an N, and the last row of the table is terminated 
by an NJ. After the last table in the set, an L is 
also punched-; otherwise the machine will end on a read 
order. 

2 re + r + c < 680 



N = E Z f < 1,000,000,000 
i j J 
The program tape is sum-checked during input. A 
failure to input the program correctly will result 
in an FF error stop from location 125-.^ • 



Chi-square 



-2- 



DATA TAPE ERRORS: 



I. If the number of elements in successive rows of a 
frequency table does not agree with the number in the 
first row of the table, the machine will stop on 
2009K after printing: 

ERROR: ELEMENTS IN ROW XX 

To continue with remaining tables, raise black switch. 

II. If the frequency is negative due to an error in 
the data tape, the machine will stop on 2ho8S after 
printing: 

ERROR: NEGATIVE SIGN IN ROW XX 

To continue with remaining tables, raise the black 

switch. 

Ill* If &ay row or column sum equals zero or if for any 

other reason the chi-square value becomes indeterminate, the 

machine will stop on 2^08S after printing: 

ERROR: INDETERMINATE 

To continue with remaining tables, raise the black 
switch • 
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003K 

1*0 (s) L52l(N12) 

OOF OOF 

OOF OOF 

OOF OOF 

OOF OOF 

OOF 00 (S) 

OOF OOF 

OOF OOF 

OOF 002F 

001F 001F 

OOF 001000F 

OOF OOF 



OOF OOF 
OOF OOF 
OOF OOF 
OOF OOF 
OOF OOF 
OOF OOF 
OOF 007F 
OOF OOF 

OOK 

OOK 

OOK' 

92135F 9259F 
92259F 92835F 
92771F 9251^ 
92707F 92706F 
92259F 92706F 
9266F 92450f| 
92387F 92258F 
9219^F hl(x) 



by 4(D) 
by 6(D) 
by 3(D) 



Initial store for (N12 ) 

t.s. on input/ total frequency 

1000 x (N) x 2~ 59 

Rows 

Columns 

Initial store of frequencies at (s) 

Problem number 

Always zero 



Store of row sums 

Store of column sums 

Store of expected values 

Temporary storage 

Temporary storage 

Temporary storage 

Temporary storage 

Number of expected values per line 

Partial chi -square 



Begin here : 



Print: CHI-SQUARE 
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Abs 


Rel. 


Sym 


2420L L5(2) 


■ 


Stop: insert data tape 
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4o (x) 92965F 


Black for chi-square only- 






10 




92387F 92770F 
1 


White for expected values. 
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9267F 9296lF| 








12 




92194F 92451F 


If white s print: 






13 




922F 92194F 1 


AND EXPECTED VALUES 
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92835F 92322F 








15 




92194F 926tf| 








16 




92961F 92323F 








17 




92387F 92962F 








18 




92450F 92194F 








19 




92706F 92961F 








20 




92135F 92707F 








21 . 




52 (S) 5021L (from 6(Q) 


Read 1st line of table or 






22 




26(N12) L0(2) 


test for end of set 






23 




3624L 26(B) 










24 




OFF 1*1 (P) 




If end of set, stop on OF 




* 


25 




92139F 26L 
OOK 




To begin another set, raise 


white 


144 
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(B) 


9259F 92135F 
92770F 922F 
9261*3F F5(P) 
J23F 503L 


from 23(A) 
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26(116) F5(P) 


Print problem number 
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42 (P) 92323FI 








6 




92961F 9296IF 








7 




L5(N1) 4o(N) 
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4l(R) 41(C) 










9 




L521(N12) LO(N) 
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40(C) L52l(N12) 


Store number of columns 
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4o(n) 4613L 
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F5(R) 42 (R) 




Tally row number 
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52F 5013L 
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26(N12) ^OF 




Read successive rows of table 
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L3F 3216L 




Test for J 




16 




26(D) L52l(N12) 


Test for same number elements each 
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lo(n) lo(c) 
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kOW L31F 








19 




3210L 5019L 








20 




26 (ER) 50F 




If error, print 
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9219^F 92962F 






22 




9219^F 926^3F 


ERROR: ELEMENTS IN ROW XX 
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9219J1F 9277OF 
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92322F 92706F 
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9296IF 925l^F 






26 




92770F 9296IF 






27 




92258F 92578F 






28 




92130F 92707F 






29 




F5(R) 50F 








30 




J23F 5030L 








31 




26(pi6) 92135F 






32 




927F 2010L 
OOK 


■ 


Stop: black to continue with 
remaining problems 
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(ER) 


K5F ^25L 


from 20(B), 


5(H) 
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92259F 9219^F 






2 




92262F 92578F 
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92258F 92707F 
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92835F 92259F 
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92965F 22F 
OOK 
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(D) 


L5(C) 1020F 


from 16 (B) 


Store frequencies at (f) 




1 




40(C) 50(R) 




Expected values at (e) =RxC + F 




2 




75(C) L5(F) 




Row sums at (RS) = (2) RxC+F 




3 




S4F kO(E) 




Columns sums at (CS ) = (RS ) 4- R 
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kbs. 


Rel. 


Sym 


s4f 4o(rs) 








k 






5 




427L lA(R) 








6 




4o(cs) iA(c) 








7 




4211L kU 


by 5L 


Clear previous columns sums " - 
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F57L 427L 
L011L 32 7L 
26(G) OOF 
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N211L 4lF 
OOK 


by 7L 


Form row and column sums 
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L5(F) k26L 
4l(N) L5(RS) 
4215L 4l(Y) 
50 (Y) L5(CS) 
429L 0020F 
' k69L 4i(z) . 


from 10(G) 
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kU L5F 


by OL 
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401F lAF 
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40F L51F 
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iAf 4of 


by 9L 






10 




F56L 426L 








11 




L59L 1^(1-1) 








12 




409L F5(z) 








13 




k2(Z) LO (C) 








14 




3615L 226L 








15 




L5F 40F 


by 2L 






16 




l4(n) 4o(n) 




Total frequency at (n) 




17 




F515L 4215L 








18 




F5(Y) 42 (Y) 








19 




lo(r) 36(H) 








20 




22 3L OOF 












OOK 






216 





(H) 


L5(F) 42 3L 


from 19(G) 


Convert frequencies to proport 




■ 

1 




4219L 4l(Y) 








2 




4l(z) 4lF 








3 




50(0) L5F 


by 3L 
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3218L 5<AL 
26 (ER) 92770F 
92194F 92579F 
92707F 92643F 
92259F 9296IF 
92706F 9251^F 
92579F 92770F 
92961F 9251^F 
92770F 9296IF 
92258F 92578F 
92130F 92707F 
92961F F5(Y) 
J23F 5016L 
26(el6) 92155F 
2^21 (A) 66 (N) from kL 



S5F 40F 

F53L 423L 
i*219L F5(Z) 
k2 (Z) 10(C) 
3624L 263L 
F5(Y) te(Y) 
L0(R) 36(1) 
262L OOF 

OOK 

L5(RS) kZk-L 
1+26L L5(CS) 
tellL 4213L 
kl(Y) *U(Z) 
50(0) L5F 
66 (N) S5F 
kOF 40F 
F5^L k2kL 
k26L F5(Y) 
k2 (Y) L0(r) 



by 1L 



from 25(H) 



by OL 



by 1L 



Test for negative frequencies 



If negative, print: 



ERROR: NEGATIVE SIGN IN ROW XX 



Stop: black to remaining problems 



Convert row and column sums to proportions, 

f , / N and 

f \)/H 
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3611L 2&J-L 
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50(0) L5F 








12 




66 (N) S5F 
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lK)F i*OF 
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F511L tellL 
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if213L F5(Z) 
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te(Z) LO(C) 








17 




36 (J) 2611L 












OOK 
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^l(Y) L5(RS) 
0020F 465L 
L5(E) 425L 
L5(CS) k2kL 
4l(Z) 50F 


from 17(1) 


Form expected proportions, f f 
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75F i+OF 


by 1L, 2L 
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T^L H2^L 
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F55L ^5L 








8 




F5(Z) k2 (Z) 








9 




LO(C) 3210L 








10 




22^L L55L 








11 




iA(l-l) 465L 








12 




F5(Y) te(Y) 








13 




LO(R) 36 (K) 








1* 




263L OOF 
OOK 
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92259F 92965IJ from 13 (j) 






1 




9267F 92898F J 


Print: DF = (R-l)(C-l) 
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92961F 92707F 






3 




92579F 50 (R) 




- 




if 




75(C) S5F 








5 




kO(h) K5F 








6 




LO(R) 10(C).. 




. 




7 




J23F 507L 








8 




26(fi6) 9213IF 

1 
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Abs. 


Rel. 


Sym. 






f • • < ■■ — — — — 




9 




92259F 92835F 




10 




92771F 92514F 






11 




92707F 92706F 


Print: CHI-SQUARE; 




12 




92259F 92706F 






13 




9266F 92707F 1 
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92643F 92835F 






15 




L5(E) 4218L 








16 




L5(F) 4219L 








17 




kl (M) kl (Y) 








18 




4l(z) L5F 


by 15L 






19 




4-01F L5F 


by 16L 






20 




L01F 40F 








21 




50F 75F 








22 




L01F 363OL 








23 




L4lF 66lF 








24 
25 




S5F lA(M) 

4o(m) F518L 


. 


Form CM-sauare ^ (m) 




26 




4218L F519L 








27 




4219L F5(Z) 








28 




k2 (Z) LO(L) 








29 




36 (Q) 2218L 








30 
31 
32 




92965F 92259F 
92514F 92770F 
9267F 9219^F 




If Chi-square Is Indeterminate "b« 
a rew 0* ^elumn r sum is equal to ", 
any ether reason, print: 

INDETERMINATE 
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92322F 9219^F 
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92258F 92643F 
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92322F 9219^F 








36 




92258F 92643F 








37 




9251I1F 92770F 








38 




92387F 92322F 








39 




9219^F 92131F 








40 




92707F 2421(A) 
OOK ( 


Stop: Black to remaining problem 
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50 (N) 75(1000) from 29 (K) 
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S5F 40(NS) 
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Aba. 


Rel. 


Sym. 










2 




50 (M) TJ (BB) 




3 




56407F 503L f 


Print Chi-square value 




If 




26(Pl6) 92135F 
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92515F L3(X)| 






6 




5621(A) L5(E) 


Test if expected values 




7 




1*29L kl(Y) 








8 




M(Z) kl(L) 








9 




50(NS) TJF 


*>y 7L 


Print expected values 
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56407F 5010L 








11 




26(Pl6) F59L 








12 




429L F5(Z) 








13 




te(Z) LO(C) 








14 




5218L F5(L) 








15 




42 (L) L0(7) 








16 




56ITL 269L 
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9215U 92519F 






18 




228L 92151F 








19 




kl (Z) F5(Y) 








20 




te(r) L0(R) 








21 




566L 26171/ 

OOK 
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OOP OOF 
OOK 
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Store of frequencies 
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1 




L5F 56(A) 
FFF 26(A) 




Sum Check 
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K52425F J70255F 










26L 26lN 
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